home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 009 / qb3bug.arc / PROBLEM1.BAS next >
Encoding:
BASIC Source File  |  1987-07-11  |  1.6 KB  |  48 lines
  1. '+----------------------------------------------------------------------------+
  2. '|     Program to demonstrate problems that occur with routines CALLed from   |
  3. '|   .LIBs or otherwise external to the CALLing QBASIC program.               |
  4. '|   This will run fine IN the environment, or if compiled to a BRUN file,    |
  5. '|   it will PROBABLY not run if compiled to a BCOM file from INSIDE the      |
  6. '|   QB environment, only if compiled from DOS via QB problem1 /o;            |
  7. '+----------------------------------------------------------------------------+
  8.  
  9. CLEAR
  10. DEFINT a-z
  11.  
  12. fil$="*.BAS"+CHR$(0)                     ' set up mask for call to asm subr.
  13.                                  ' change to suit if no .BAS files are
  14.                                  ' in current directory
  15.  
  16. attr=00                                  ' attribute to look for (00=normal)
  17.  
  18. errcd=0                                  ' routine will set this if there's
  19.                                  ' a problem
  20.  
  21. CALL findfirstf(fil$,attr%,ercd%)        ' DOS call to find first matching file
  22.  
  23. IF ercd THEN PRINT "No Files"
  24.  
  25. fil$=SPACE$(12)  :  flen=0               ' set up for a loop to get filenames
  26.                                  ' flen returns length of filename and
  27.                                  ' -1 when there are no more files
  28.                                  ' it never gets this far in BCOM format
  29.  
  30. ercd=0                                   ' what the heck, make sure it's 0
  31. CALL findnextf(ercd%)
  32.  
  33. label:
  34.    CALL getnamef(fil$,flen%)             ' get next name
  35.    PRINT LEFT$(fil$,flen)                ' print it
  36.    CALL findnextf(ercd%)                 ' get next matching filename
  37.  
  38.  IF ercd=0 THEN GOTO label               ' loop until out of files
  39.  
  40.  
  41. BEEP
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.